home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 15 Orphan Computers / ALARM.SEQ / c64.bas
Unknown  |  2019-04-13  |  2.7 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 2a 2a 41 | 4c 41 52 4d 20 50 52 4f |1 REM**A|LARM PRO|
|00000010| 47 52 41 4d 2a 2a 0a 32 | 20 52 45 4d 2a 20 31 2d |GRAM**.2| REM* 1-|
|00000020| 34 30 30 20 49 53 20 43 | 4c 4f 43 4b 20 43 4f 55 |400 IS C|LOCK COU|
|00000030| 4e 54 49 4e 47 20 54 4f | 20 41 4c 41 52 4d 2a 0a |NTING TO| ALARM*.|
|00000040| 35 20 50 4f 4b 45 33 36 | 38 37 39 2c 38 3a 52 45 |5 POKE36|879,8:RE|
|00000050| 4d 2a 2a 53 45 54 20 53 | 43 52 45 45 4e 20 42 4c |M**SET S|CREEN BL|
|00000060| 41 43 4b 2a 2a 0a 31 30 | 20 54 49 24 3d 22 30 36 |ACK**.10| TI$="06|
|00000070| 34 34 35 35 22 3a 52 45 | 4d 2a 2a 53 45 54 20 50 |4455":RE|M**SET P|
|00000080| 52 45 53 45 4e 54 20 54 | 49 4d 45 2a 2a 0a 32 30 |RESENT T|IME**.20|
|00000090| 20 46 4f 52 49 3d 31 54 | 4f 39 39 39 39 39 39 39 | FORI=1T|O9999999|
|000000a0| 39 3a 52 45 4d 2a 2a 50 | 52 4f 47 52 41 4d 20 4f |9:REM**P|ROGRAM O|
|000000b0| 50 45 52 41 54 49 4e 47 | 20 41 52 52 41 59 2a 2a |PERATING| ARRAY**|
|000000c0| 22 54 48 45 20 53 50 52 | 49 4e 47 22 0a 33 30 20 |"THE SPR|ING".30 |
|000000d0| 50 52 49 4e 54 54 49 24 | 3a 50 52 49 4e 54 22 93 |PRINTTI$|:PRINT".|
|000000e0| 22 3a 52 45 4d 2a 2a 50 | 52 49 4e 54 20 54 49 4d |":REM**P|RINT TIM|
|000000f0| 45 3a 43 4c 52 20 53 43 | 52 45 45 4e 2a 2a 0a 33 |E:CLR SC|REEN**.3|
|00000100| 30 30 20 49 46 20 54 49 | 24 3d 22 30 36 34 35 30 |00 IF TI|$="06450|
|00000110| 30 22 54 48 45 4e 47 4f | 54 4f 31 30 30 30 3a 52 |0"THENGO|TO1000:R|
|00000120| 45 4d 2a 2a 53 54 41 52 | 54 20 41 4c 41 52 4d 0a |EM**STAR|T ALARM.|
|00000130| 34 30 30 20 4e 45 58 54 | 49 0a 39 30 30 20 52 45 |400 NEXT|I.900 RE|
|00000140| 4d 2a 2a 43 48 45 43 4b | 20 57 48 41 54 20 54 49 |M**CHECK| WHAT TI|
|00000150| 4d 45 20 49 54 20 49 53 | 2a 2a 0a 31 30 30 30 20 |ME IT IS|**.1000 |
|00000160| 50 4f 4b 45 33 36 38 37 | 38 2c 31 35 3a 47 4f 54 |POKE3687|8,15:GOT|
|00000170| 4f 31 30 32 30 3a 52 45 | 4d 2a 2a 53 45 54 20 56 |O1020:RE|M**SET V|
|00000180| 4f 4c 55 4d 45 20 4c 4f | 55 44 2a 2a 0a 31 30 31 |OLUME LO|UD**.101|
|00000190| 30 20 50 4f 4b 45 33 36 | 38 37 34 2c 32 30 30 0a |0 POKE36|874,200.|
|000001a0| 31 30 32 30 20 46 4f 52 | 43 3d 31 54 4f 31 37 30 |1020 FOR|C=1TO170|
|000001b0| 30 3a 52 45 4d 2a 2a 4b | 45 45 50 53 20 44 49 53 |0:REM**K|EEPS DIS|
|000001c0| 50 4c 41 59 20 50 52 45 | 53 45 4e 54 2a 2a 0a 31 |PLAY PRE|SENT**.1|
|000001d0| 30 33 30 20 50 52 49 4e | 54 22 93 22 3a 50 52 49 |030 PRIN|T".":PRI|
|000001e0| 4e 54 54 49 24 2c 43 3a | 52 45 4d 2a 2a 43 4c 4f |NTTI$,C:|REM**CLO|
|000001f0| 43 4b 20 44 49 53 50 4c | 41 59 2a 2a 0a 31 30 34 |CK DISPL|AY**.104|
|00000200| 30 20 49 46 54 49 24 3d | 22 30 36 34 36 30 30 22 |0 IFTI$=|"064600"|
|00000210| 54 48 45 4e 20 47 4f 53 | 55 42 20 32 30 30 30 3a |THEN GOS|UB 2000:|
|00000220| 52 45 4d 2a 2a 46 45 54 | 43 48 45 53 20 28 31 29 |REM**FET|CHES (1)|
|00000230| 20 42 45 45 50 2a 2a 0a | 31 30 35 30 20 4e 45 58 | BEEP**.|1050 NEX|
|00000240| 54 43 0a 31 30 35 35 20 | 46 4f 52 43 3d 31 54 4f |TC.1055 |FORC=1TO|
|00000250| 31 37 30 30 3a 52 45 4d | 2a 2a 4b 45 45 50 53 20 |1700:REM|**KEEPS |
|00000260| 44 49 53 50 4c 41 59 20 | 50 52 45 53 45 4e 54 2a |DISPLAY |PRESENT*|
|00000270| 2a 0a 31 30 35 37 20 50 | 52 49 4e 54 22 93 22 3a |*.1057 P|RINT".":|
|00000280| 50 52 49 4e 54 54 49 24 | 2c 43 3a 52 45 4d 2a 2a |PRINTTI$|,C:REM**|
|00000290| 43 4c 4f 43 4b 20 44 49 | 53 50 4c 41 59 2a 2a 0a |CLOCK DI|SPLAY**.|
|000002a0| 31 30 36 30 20 49 46 20 | 54 49 24 3d 22 30 36 34 |1060 IF |TI$="064|
|000002b0| 37 30 30 22 54 48 45 4e | 47 4f 53 55 42 33 30 30 |700"THEN|GOSUB300|
|000002c0| 30 3a 52 45 4d 2a 2a 46 | 45 54 43 48 20 28 32 29 |0:REM**F|ETCH (2)|
|000002d0| 20 42 45 45 50 53 2a 2a | 0a 31 30 36 33 20 4e 45 | BEEPS**|.1063 NE|
|000002e0| 58 54 43 0a 31 30 36 38 | 20 46 4f 52 43 3d 31 54 |XTC.1068| FORC=1T|
|000002f0| 4f 31 37 30 30 3a 52 45 | 4d 2a 2a 4b 45 45 50 53 |O1700:RE|M**KEEPS|
|00000300| 20 43 4c 4f 43 4b 2a 2a | 0a 31 30 36 39 20 50 52 | CLOCK**|.1069 PR|
|00000310| 49 4e 54 22 93 22 3a 50 | 52 49 4e 54 54 49 24 2c |INT".":P|RINTTI$,|
|00000320| 43 3a 52 45 4d 2a 2a 43 | 4c 4f 43 4b 20 44 49 53 |C:REM**C|LOCK DIS|
|00000330| 50 4c 41 59 2a 2a 0a 31 | 30 37 30 20 49 46 54 49 |PLAY**.1|070 IFTI|
|00000340| 24 3d 22 30 36 34 38 30 | 30 22 54 48 45 4e 47 4f |$="06480|0"THENGO|
|00000350| 53 55 42 34 30 30 30 3a | 52 45 4d 2a 2a 46 45 54 |SUB4000:|REM**FET|
|00000360| 43 48 45 53 20 28 33 29 | 20 42 45 45 50 53 2a 2a |CHES (3)| BEEPS**|
|00000370| 0a 31 30 37 33 20 4e 45 | 58 54 43 0a 31 30 37 35 |.1073 NE|XTC.1075|
|00000380| 20 46 4f 52 43 3d 31 54 | 4f 31 37 30 30 0a 31 30 | FORC=1T|O1700.10|
|00000390| 37 37 20 50 52 49 4e 54 | 22 93 22 3a 50 52 49 4e |77 PRINT|".":PRIN|
|000003a0| 54 54 49 24 2c 43 0a 31 | 30 38 30 20 49 46 54 49 |TTI$,C.1|080 IFTI|
|000003b0| 24 3d 22 30 36 34 39 30 | 30 22 54 48 45 4e 47 4f |$="06490|0"THENGO|
|000003c0| 53 55 42 35 30 30 30 3a | 52 45 4d 2a 2a 46 45 54 |SUB5000:|REM**FET|
|000003d0| 43 48 45 53 20 28 34 29 | 20 42 45 45 50 53 2a 2a |CHES (4)| BEEPS**|
|000003e0| 0a 31 30 38 37 20 4e 45 | 58 54 43 0a 31 30 38 38 |.1087 NE|XTC.1088|
|000003f0| 20 46 4f 52 43 3d 31 54 | 4f 31 37 30 30 0a 31 30 | FORC=1T|O1700.10|
|00000400| 38 39 20 50 52 49 4e 54 | 22 93 22 3a 50 52 49 4e |89 PRINT|".":PRIN|
|00000410| 54 54 49 24 2c 43 0a 31 | 30 39 30 20 49 46 54 49 |TTI$,C.1|090 IFTI|
|00000420| 24 3d 22 30 36 35 30 30 | 30 22 54 48 45 4e 47 4f |$="06500|0"THENGO|
|00000430| 53 55 42 36 30 30 30 3a | 52 45 4d 2a 2a 46 45 54 |SUB6000:|REM**FET|
|00000440| 43 48 45 53 20 28 35 29 | 20 42 45 45 50 53 2a 2a |CHES (5)| BEEPS**|
|00000450| 0a 31 30 39 33 20 4e 45 | 58 54 43 0a 31 30 39 35 |.1093 NE|XTC.1095|
|00000460| 20 46 4f 52 43 3d 31 54 | 4f 38 33 30 30 0a 31 30 | FORC=1T|O8300.10|
|00000470| 39 37 20 50 52 49 4e 54 | 22 93 22 3a 50 52 49 4e |97 PRINT|".":PRIN|
|00000480| 54 54 49 24 2c 43 0a 31 | 31 30 30 20 49 46 54 49 |TTI$,C.1|100 IFTI|
|00000490| 24 3d 22 30 36 35 35 30 | 30 22 20 54 48 45 4e 31 |$="06550|0" THEN1|
|000004a0| 30 30 30 30 3a 52 45 4d | 2a 2a 46 45 54 43 48 20 |0000:REM|**FETCH |
|000004b0| 31 30 20 4d 49 4e 2e 20 | 41 46 54 45 52 20 54 4f |10 MIN. |AFTER TO|
|000004c0| 4e 45 2a 2a 0a 31 31 31 | 30 20 4e 45 58 54 43 0a |NE**.111|0 NEXTC.|
|000004d0| 31 31 35 30 20 46 4f 52 | 43 3d 31 54 4f 32 35 30 |1150 FOR|C=1TO250|
|000004e0| 30 30 30 0a 31 31 36 30 | 20 50 52 49 4e 54 22 93 |000.1160| PRINT".|
|000004f0| 22 3a 50 52 49 4e 54 54 | 49 24 2c 43 0a 31 32 30 |":PRINTT|I$,C.120|
|00000500| 30 20 49 46 54 49 24 3d | 22 30 37 30 30 30 30 22 |0 IFTI$=|"070000"|
|00000510| 54 48 45 4e 20 47 4f 53 | 55 42 31 35 30 30 30 3a |THEN GOS|UB15000:|
|00000520| 52 45 4d 2a 2a 46 45 54 | 43 48 20 41 4c 41 52 4d |REM**FET|CH ALARM|
|00000530| 20 50 45 52 4d 45 4e 41 | 4e 54 2a 2a 0a 31 32 30 | PERMENA|NT**.120|
|00000540| 31 20 4e 45 58 54 43 0a | 31 33 30 30 20 46 4f 52 |1 NEXTC.|1300 FOR|
|00000550| 43 3d 31 54 4f 32 35 30 | 30 30 30 0a 31 33 35 30 |C=1TO250|000.1350|
|00000560| 20 50 52 49 4e 54 22 93 | 22 3a 50 52 49 4e 54 54 | PRINT".|":PRINTT|
|00000570| 49 24 2c 43 0a 31 34 30 | 30 20 49 46 54 49 24 3d |I$,C.140|0 IFTI$=|
|00000580| 22 30 37 09 00 30 30 22 | 54 48 45 4e 20 50 4f 4b |"07..00"|THEN POK|
|00000590| 45 33 36 38 37 38 2c 30 | 3a 52 45 4d 2a 2a 41 54 |E36878,0|:REM**AT|
|000005a0| 20 32 30 20 41 46 54 45 | 52 20 54 55 52 4e 20 4f | 20 AFTE|R TURN O|
|000005b0| 46 46 2c 20 4e 4f 54 20 | 47 45 54 54 49 4e 47 20 |FF, NOT |GETTING |
|000005c0| 55 50 2a 2a 0a 31 34 35 | 30 20 4e 45 58 54 43 0a |UP**.145|0 NEXTC.|
|000005d0| 31 35 30 30 20 45 4e 44 | 0a 31 39 30 30 20 52 45 |1500 END|.1900 RE|
|000005e0| 4d 2a 2a 41 4c 41 52 4d | 20 53 4f 55 4e 44 53 20 |M**ALARM| SOUNDS |
|000005f0| 52 4f 55 54 49 4e 45 53 | 2a 2a 0a 32 30 30 30 20 |ROUTINES|**.2000 |
|00000600| 50 4f 4b 45 33 36 38 37 | 36 2c 32 31 30 3a 46 4f |POKE3687|6,210:FO|
|00000610| 52 42 3d 31 54 4f 35 30 | 30 3a 4e 45 58 54 42 3a |RB=1TO50|0:NEXTB:|
|00000620| 50 4f 4b 45 33 36 38 37 | 36 2c 30 3a 46 4f 52 42 |POKE3687|6,0:FORB|
|00000630| 3d 31 54 4f 31 30 30 30 | 3a 4e 45 58 54 42 0a 32 |=1TO1000|:NEXTB.2|
|00000640| 30 31 30 20 52 45 54 55 | 52 4e 0a 33 30 30 30 20 |010 RETU|RN.3000 |
|00000650| 50 4f 4b 45 33 36 38 37 | 36 2c 32 31 30 3a 46 4f |POKE3687|6,210:FO|
|00000660| 52 42 3d 31 54 4f 35 30 | 30 3a 4e 45 58 54 42 3a |RB=1TO50|0:NEXTB:|
|00000670| 50 4f 4b 45 33 36 38 37 | 36 2c 30 3a 46 4f 52 42 |POKE3687|6,0:FORB|
|00000680| 3d 31 54 4f 33 30 30 3a | 4e 45 58 54 42 3a 50 4f |=1TO300:|NEXTB:PO|
|00000690| 4b 45 33 36 38 37 36 2c | 32 31 30 0a 33 30 31 30 |KE36876,|210.3010|
|000006a0| 20 46 4f 52 42 3d 31 54 | 4f 35 30 30 3a 4e 45 58 | FORB=1T|O500:NEX|
|000006b0| 54 42 3a 50 4f 4b 45 33 | 36 38 37 36 2c 30 0a 33 |TB:POKE3|6876,0.3|
|000006c0| 30 31 35 20 50 52 49 4e | 54 54 49 24 0a 33 30 32 |015 PRIN|TTI$.302|
|000006d0| 30 20 52 45 54 55 52 4e | 0a 34 30 30 30 20 50 4f |0 RETURN|.4000 PO|
|000006e0| 4b 45 33 36 38 37 36 2c | 32 31 30 3a 46 4f 52 42 |KE36876,|210:FORB|
|000006f0| 3d 31 54 4f 35 30 30 3a | 4e 45 58 54 42 3a 50 4f |=1TO500:|NEXTB:PO|
|00000700| 4b 45 33 36 38 37 36 2c | 30 3a 46 4f 52 42 3d 31 |KE36876,|0:FORB=1|
|00000710| 54 4f 33 30 30 3a 4e 45 | 58 54 42 3a 50 4f 4b 45 |TO300:NE|XTB:POKE|
|00000720| 33 36 38 37 36 2c 32 31 | 30 0a 34 30 31 30 20 46 |36876,21|0.4010 F|
|00000730| 4f 52 42 3d 31 54 4f 35 | 30 30 3a 4e 45 58 54 42 |ORB=1TO5|00:NEXTB|
|00000740| 3a 50 4f 4b 45 33 36 38 | 37 36 2c 30 3a 46 4f 52 |:POKE368|76,0:FOR|
|00000750| 42 3d 31 54 4f 35 30 30 | 3a 4e 45 58 54 42 3a 50 |B=1TO500|:NEXTB:P|
|00000760| 4f 4b 45 33 36 38 37 36 | 2c 32 31 30 3a 46 4f 52 |OKE36876|,210:FOR|
|00000770| 42 3d 31 54 4f 35 30 30 | 3a 4e 45 58 54 42 0a 34 |B=1TO500|:NEXTB.4|
|00000780| 30 32 30 20 50 4f 4b 45 | 33 36 38 37 36 2c 30 0a |020 POKE|36876,0.|
|00000790| 34 30 33 30 20 52 45 54 | 55 52 4e 0a 35 30 30 30 |4030 RET|URN.5000|
|000007a0| 20 50 4f 4b 45 33 36 38 | 37 36 2c 32 31 30 3a 46 | POKE368|76,210:F|
|000007b0| 4f 52 42 3d 31 54 4f 35 | 30 30 3a 4e 45 58 54 42 |ORB=1TO5|00:NEXTB|
|000007c0| 3a 50 4f 4b 45 33 36 38 | 37 36 2c 30 3a 46 4f 52 |:POKE368|76,0:FOR|
|000007d0| 42 3d 31 54 4f 33 30 30 | 3a 4e 45 58 54 42 0a 35 |B=1TO300|:NEXTB.5|
|000007e0| 30 31 30 20 50 4f 4b 45 | 33 36 38 37 36 2c 32 31 |010 POKE|36876,21|
|000007f0| 30 3a 46 4f 52 42 3d 31 | 54 4f 35 30 30 3a 4e 45 |0:FORB=1|TO500:NE|
|00000800| 58 54 42 3a 50 4f 4b 45 | 33 36 38 37 36 2c 30 3a |XTB:POKE|36876,0:|
|00000810| 46 4f 52 42 3d 31 54 4f | 33 30 30 3a 4e 45 58 54 |FORB=1TO|300:NEXT|
|00000820| 42 0a 35 30 32 30 20 50 | 4f 4b 45 33 36 38 37 36 |B.5020 P|OKE36876|
|00000830| 2c 32 31 30 3a 46 4f 52 | 42 3d 31 54 4f 35 30 09 |,210:FOR|B=1TO50.|
|00000840| 0a 35 30 33 30 20 50 4f | 4b 45 33 36 38 37 36 2c |.5030 PO|KE36876,|
|00000850| 32 31 30 3a 46 4f 52 42 | 3d 31 54 4f 35 30 30 3a |210:FORB|=1TO500:|
|00000860| 4e 45 58 54 42 3a 50 4f | 4b 45 33 36 38 37 36 2c |NEXTB:PO|KE36876,|
|00000870| 30 3a 46 4f 52 42 3d 31 | 54 4f 33 30 30 3a 4e 45 |0:FORB=1|TO300:NE|
|00000880| 58 54 42 0a 35 30 34 30 | 20 52 45 54 55 52 4e 0a |XTB.5040| RETURN.|
|00000890| 36 30 30 30 20 50 4f 4b | 45 33 36 38 37 36 2c 32 |6000 POK|E36876,2|
|000008a0| 31 30 3a 46 4f 52 42 3d | 31 54 4f 35 30 30 3a 4e |10:FORB=|1TO500:N|
|000008b0| 45 58 54 42 3a 50 4f 4b | 45 33 36 38 37 36 2c 30 |EXTB:POK|E36876,0|
|000008c0| 3a 46 4f 52 42 3d 31 54 | 4f 33 30 30 3a 4e 45 58 |:FORB=1T|O300:NEX|
|000008d0| 54 42 0a 36 30 31 30 20 | 50 4f 4b 45 33 36 38 37 |TB.6010 |POKE3687|
|000008e0| 36 2c 32 31 30 3a 46 4f | 52 42 3d 31 54 4f 35 30 |6,210:FO|RB=1TO50|
|000008f0| 30 3a 4e 45 58 54 42 3a | 50 4f 4b 45 33 36 38 37 |0:NEXTB:|POKE3687|
|00000900| 36 2c 30 3a 46 4f 52 42 | 3d 31 54 4f 33 30 30 3a |6,0:FORB|=1TO300:|
|00000910| 4e 45 58 54 42 0a 36 30 | 32 30 20 50 4f 4b 45 33 |NEXTB.60|20 POKE3|
|00000920| 36 38 37 36 2c 32 31 30 | 3a 46 4f 52 42 3d 31 54 |6876,210|:FORB=1T|
|00000930| 4f 35 30 30 3a 4e 45 58 | 54 42 3a 50 4f 4b 45 33 |O500:NEX|TB:POKE3|
|00000940| 36 38 37 36 2c 30 3a 46 | 4f 52 42 3d 31 54 4f 33 |6876,0:F|ORB=1TO3|
|00000950| 30 30 3a 4e 45 58 54 42 | 0a 36 30 33 30 20 50 4f |00:NEXTB|.6030 PO|
|00000960| 4b 45 33 36 38 37 36 2c | 32 31 30 3a 46 4f 52 42 |KE36876,|210:FORB|
|00000970| 3d 31 54 4f 35 30 30 3a | 4e 45 58 54 42 3a 50 4f |=1TO500:|NEXTB:PO|
|00000980| 4b 45 33 36 38 37 36 2c | 30 3a 46 4f 52 42 3d 31 |KE36876,|0:FORB=1|
|00000990| 54 4f 33 30 30 3a 4e 45 | 58 54 42 0a 36 30 34 30 |TO300:NE|XTB.6040|
|000009a0| 20 50 4f 4b 45 33 36 38 | 37 36 2c 32 31 30 3a 46 | POKE368|76,210:F|
|000009b0| 4f 52 42 3d 31 54 4f 35 | 30 30 3a 4e 45 58 54 42 |ORB=1TO5|00:NEXTB|
|000009c0| 3a 50 4f 4b 45 33 36 38 | 37 36 2c 30 3a 46 4f 52 |:POKE368|76,0:FOR|
|000009d0| 42 3d 31 54 4f 33 30 30 | 3a 4e 45 58 54 42 0a 36 |B=1TO300|:NEXTB.6|
|000009e0| 30 35 30 20 52 45 54 55 | 52 4e 0a 31 30 30 30 30 |050 RETU|RN.10000|
|000009f0| 20 50 4f 4b 45 33 36 38 | 37 36 2c 32 31 30 3a 46 | POKE368|76,210:F|
|00000a00| 4f 52 42 3d 31 54 4f 31 | 30 30 30 3a 4e 45 58 54 |ORB=1TO1|000:NEXT|
|00000a10| 42 3a 50 4f 4b 45 33 36 | 38 37 35 2c 32 30 30 3a |B:POKE36|875,200:|
|00000a20| 46 4f 52 42 3d 31 54 4f | 31 30 30 30 3a 4e 45 58 |FORB=1TO|1000:NEX|
|00000a30| 54 42 0a 31 30 31 30 30 | 20 50 4f 4b 45 33 36 38 |TB.10100| POKE368|
|00000a40| 37 36 2c 30 3a 50 4f 4b | 45 33 36 38 37 35 2c 30 |76,0:POK|E36875,0|
|00000a50| 3a 52 45 54 55 52 4e 0a | 31 35 30 30 30 20 50 4f |:RETURN.|15000 PO|
|00000a60| 4b 45 33 36 38 37 35 2c | 32 30 30 3a 50 4f 4b 45 |KE36875,|200:POKE|
|00000a70| 33 36 38 37 36 2c 32 31 | 30 3a 52 45 54 55 52 4e |36876,21|0:RETURN|
|00000a80| 0a 32 30 30 30 30 20 50 | 4f 4b 45 33 36 38 37 38 |.20000 P|OKE36878|
|00000a90| 2c 30 3a 52 45 54 55 52 | 4e 0a                   |,0:RETUR|N.      |
+--------+-------------------------+-------------------------+--------+--------+